home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Toolbox
/
Visual Basic Toolbox (P.I.E.)(1996).ISO
/
forms
/
frmwiz
/
testform.frm
< prev
next >
Wrap
Text File
|
1995-01-23
|
6KB
|
195 lines
VERSION 2.00
Begin Form TestForm
BackColor = &H00C0C0C0&
Caption = "Test Form Caption"
ClientHeight = 3915
ClientLeft = 1095
ClientTop = 1485
ClientWidth = 7500
Height = 4320
HelpContextID = 8
Left = 1035
LinkTopic = "Form1"
ScaleHeight = 3915
ScaleWidth = 7500
Top = 1140
Width = 7620
Begin SSPanel cMsg
Align = 2 'Align Bottom
Alignment = 1 'Left Justify - MIDDLE
BevelInner = 1 'Inset
BorderWidth = 2
ForeColor = &H00FF0000&
Height = 375
Left = 0
TabIndex = 0
Top = 3540
Width = 7500
End
Begin Data DatTest
BackColor = &H00FFFFFF&
Caption = "Test Data Caption"
Connect = ""
DatabaseName = "e:\vb\biblio.mdb"
Exclusive = 0 'False
Height = 270
Left = 1860
Options = 0
ReadOnly = 0 'False
RecordSource = "Publishers"
Top = 3180
Width = 4035
End
Begin Label LLblName
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "Name"
ForeColor = &H00FF0000&
Height = 195
Left = 120
TabIndex = 1
Top = 240
Width = 1935
End
Begin TextBox FTxtName
BackColor = &H00C0C0C0&
DataField = "Name"
DataSource = "DatTest"
Height = 315
HelpContextID = 10
Left = 2160
MaxLength = 50
TabIndex = 2
Top = 180
Width = 4515
End
Begin Label LLblCompanyName
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "Company Name"
ForeColor = &H00FF0000&
Height = 195
Left = 120
TabIndex = 1
Top = 660
Width = 1935
End
Begin TextBox FTxtCompanyName
BackColor = &H00C0C0C0&
DataField = "Company Name"
DataSource = "DatTest"
Height = 315
HelpContextID = 10
Left = 2160
MaxLength = 255
TabIndex = 2
Top = 600
Width = 7140
End
Begin Label LLblAddress
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "Address"
ForeColor = &H00FF0000&
Height = 195
Left = 120
TabIndex = 1
Top = 1080
Width = 1935
End
Begin TextBox FTxtAddress
BackColor = &H00C0C0C0&
DataField = "Address"
DataSource = "DatTest"
Height = 315
HelpContextID = 10
Left = 2160
MaxLength = 50
TabIndex = 2
Top = 1020
Width = 4515
End
Begin Label LLblCity
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "City"
ForeColor = &H00FF0000&
Height = 195
Left = 120
TabIndex = 1
Top = 1500
Width = 1935
End
Begin TextBox FTxtCity
BackColor = &H00C0C0C0&
DataField = "City"
DataSource = "DatTest"
Height = 315
HelpContextID = 10
Left = 2160
MaxLength = 20
TabIndex = 2
Top = 1440
Width = 1815
End
Begin Label LLblState
Alignment = 0 ' Left Justify
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "State"
ForeColor = &H00FF0000&
Height = 195
Left = 4170
TabIndex = 1
Top = 1500
Width = 1935
End
Begin TextBox FTxtState
BackColor = &H00C0C0C0&
DataField = "State"
DataSource = "DatTest"
Height = 315
HelpContextID = 10
Left = 4830
MaxLength = 10
TabIndex = 2
Top = 1440
Width = 915
End
Begin Label LLblZip
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackColor = &H00C0C0C0&
Caption = "Zip"
ForeColor = &H00FF0000&
Height = 195
Left = 120
TabIndex = 1
Top = 1920
Width = 1935
End
Begin TextBox FTxtZip
BackColor = &H00C0C0C0&
DataField = "Zip"
DataSource = "DatTest"
Height = 315
HelpContextID = 10
Left = 2160
MaxLength = 15
TabIndex = 2
Top = 1860
Width = 1365
End
End
Option Explicit
Sub Form_Load ()
Form3d Me
End Sub